Clinton - Portrait of Victory/PORTRAIT OF VICTORY.BIN/cltpc256/eagle2.txt

Text File | 1992-12-31 | 14KB | 745 lines

; The Candidate main menu
start2:
pload ehcan 1
putup 0 415 p1
pfree 1
pload cantp 1
putup 110 85 p1
pfree 1
pload ebcan 1
putup 128 31 p1
pfree 1
pload ebnav 1
putup 0 0 p1
pfree 1
menu21:
set gonum 21
mn11:
waitkey
getkey k
if @k==1
  set num 1
  xbkg
  goto menu211
else
  if @k==2
    goto menu212
  else
    if @k==3
      set num 1
      xbkg
      goto menu213
    else
      if @k==chr(104)||@k==chr(72)
        goto help
      else
        if @k==chr(112)||@k==chr(80)
          xbkg2
          link eagle menu1
        else
          if @k==chr(101)||@k==chr(69)
            xbkg
            pload edexit 1
            putup 190 200 p1
            pfree 1
            mn11b:
            waitkey
            getkey k
            if @k==chr(13)
              exit
            else
              if @k==chr(27)
                xbkg
                pload cantp 1
                putup 110 85 p1
                pfree 1
                goto menu21
              else
                goto mn11b
              endif
            endif
          else
            goto mn11
          endif
        endif
      endif
    endif
  endif
endif

; Kramer text selection display
menu211:
set gonum 211
mn211:
color 0
rect 40 95 600 405
color 10
fload times15 1
fgaps 1 5 3
set buf readfile(cktxt$@num$.doc)
window 60 95 580 390
text @@buf
. farfree(@buf)
window
set center on
ffree 1
fload ibm8 1
text 0 120 "Page "$@num$" of 14"
text 0 110 "Press <PGUP> for next or <PGDN> for prior."
set center off
ffree 1
mn211b:
waitkey
getkey k
if @k==2
  goto menu212
else
  if @k==3
    set num 1
    xbkg
    goto menu213
  else
    if @k==chr(104)||@k==chr(72)
      goto help
    else
      if @k==chr(112)||@k==chr(80)
        xbkg2
        link eagle menu1
      else
        if @k==chr(101)||@k==chr(69)
            xbkg
            pload edexit 1
            putup 190 200 p1
            pfree 1
            mn211c:
            waitkey
            getkey k
            if @k==chr(13)
              exit
            else
              if @k==chr(27)
                xbkg
                goto mn211
              else
                goto mn211c
              endif
            endif
        else
          if @k==chr(73)$chr(1)||@k==chr(72)$chr(1)
            if @num==14
              set num 1
              goto menu211
            else
              set num @num+1
              goto mn211
            endif
          else
            if @k==chr(81)$chr(1)||@k==chr(80)$chr(1)
              if @num==1
                set num 14
                goto menu211
              else
                set num @num-1
                goto mn211
              endif
            else
              goto mn211b
            endif
          endif
        endif
      endif
    endif
  endif
endif

; Speeches (Video) selection display
menu212:
set gonum 212
set k ""
set abort on
mn212:
pload ebkg 1
pfade 0 1
pfree 1
pload canspch 1
palette 1
putup 120 152 p1
pfree 1
mn212b:
color 0
rect 147 212 306 331
waitkey
getkey k
if @k==chr(109)||@k==chr(77)
  pload ebkg 1
  palette 1
  pfade 0 1
  pfree 1
  set abort off
  goto start2
else
  if @k==1
    pload canspch1 1
    putup 120 152 p1
    pfree 1
    set num 1
    set abort on
    mn2124:
    set k ""
    set m ""
    pload canva$@num 1
    putup 147 211 p1
    pfree 1
      if @num==1
        cdplay 50 14
        timer
        waitkey 1400
      endif
      if @num==2
        cdplay 51 20
        timer
        waitkey 2000
      endif
      if @num==3
        cdplay 52 16
        timer
        waitkey 1600
      endif
      getkey m
      xstop
      cdstop
    if @num==3
      pload canspch 1
      palette 1
      putup 120 152 p1
      pfree 1
      goto mn212b
    else
      set num @num+1
      goto mn2124
    endif
  else
    if @k==2
      pload canspch1 1
      putup 120 152 p1
      pfree 1
      set num 1
      set abort on
      mn2125:
      set k ""
      set m ""
      pload canvb$@num 1
      putup 147 211 p1
      pfree 1
        if @num==1
          cdplay 53 50
          timer
          waitkey 5000
        endif
        if @num==2
          cdplay 54 41
          timer
          waitkey 4100
        endif
        getkey m
        xstop
        cdstop
      if @num==2
        waitkey 200
        pload canspch 1
        palette 1
        putup 120 152 p1
        pfree 1
        goto mn212b
      else
        set num @num+1
        goto mn2125
      endif
    else
      if @k==3
        pload canspch1 1
        putup 120 152 p1
        pfree 1
        set num 1
        set abort on
        mn2126:
        set k ""
        set m ""
        pload canvc$@num 1
        putup 147 211 p1
        pfree 1
          if @num==1
            cdplay 55 36
            timer
            waitkey 3600
          endif
          if @num==2
            cdplay 56 15
            timer
            waitkey 1500
          endif
          if @num==3
            cdplay 57 19
            timer
            waitkey 1900
          endif
          getkey m
          xstop
          cdstop
        if @num==3
          pload canspch 1
          palette 1
          putup 120 152 p1
          pfree 1
          goto mn212b
        else
          set num @num+1
          goto mn2126
        endif
      else
        if @k==4
          pload canspch1 1
          putup 120 152 p1
          pfree 1
          set num 1
          set abort on
          mn2127:
          set k ""
          set m ""
          pload canvd$@num 1
          putup 147 211 p1
          pfree 1
            cdplay 58 90
            timer
            waitkey 9000
            getkey m
            xstop
            cdstop
            pload canspch 1
            palette 1
            putup 120 152 p1
            pfree 1
            goto mn212b
        else
          goto mn212b
        endif
      endif
    endif
  endif
endif

; Resume text selection display
menu213:
set gonum 213
mn213:
color 0
rect 40 95 600 405
color 10
fload times15 1
fgaps 1 5 3
set buf readfile(crtxt$@num$.doc)
window 60 95 580 390
text @@buf
. farfree(@buf)
window
set center on
ffree 1
fload ibm8 1
text 0 115 "Page "$@num$" of 3"
text 0 105 "Press <PGUP> for next or <PGDN> for prior."
set center off
ffree 1
mn213b:
waitkey
getkey k
if @k==1
  set num 1
  xbkg
  goto menu211
else
  if @k==2
    goto menu212
  else
    if @k==chr(104)||@k==chr(72)
      goto help
    else
      if @k==chr(112)||@k==chr(80)
        xbkg2
        link eagle menu1
      else
        if @k==chr(101)||@k==chr(69)
            xbkg
            pload edexit 1
            putup 190 200 p1
            pfree 1
            mn213c:
            waitkey
            getkey k
            if @k==chr(13)
              exit
            else
              if @k==chr(27)
                xbkg
                goto mn213
              else
                goto mn213c
              endif
            endif
        else
          if @k==chr(73)$chr(1)||@k==chr(72)$chr(1)
            if @num==3
              set num 1
              goto mn213
            else
              set num @num+1
              goto mn213
            endif
          else
            if @k==chr(81)$chr(1)||@k==chr(80)$chr(1)
              if @num==1
                set num 3
                goto mn213
              else
                set num @num-1
                goto mn213
              endif
            else
              goto mn213b
            endif
          endif
        endif
      endif
    endif
  endif
endif

help:
pload apatch 1
putup 0 0 p1
pfree 1
pload eclbb 1
putup 0 29 p1
pfree 1
xbkg
pload edhelp 1
putup 31 74 p1
pfree 1
fload ibm8 1
fgaps 1 4 2
set buf readfile(candhlp.doc)
window 65 355 575 100
color 1
text @@buf
. farfree(@buf)
window
ffree 1
hlp1:
waitkey
getkey k